GFA-AMIGAB
REVERS
ZA	CLOSEFONT
SETFONT
ZEILE
SPALTE
LAENGE
POSS2
EINBLENDUNG
BAISIS
BASIS
FONT.ALT
INTUITION.ADRESSE
ALT.ANZ	FONT.NAME
FONT.NEU
HEIGH
FRAGE
ANZ.FRAGEN	ANZFRAGEN
DATEI
WARTE
TASTE
INKEY
CYCLIC
RICHTIG
FALSCH	MAXFRAGEN
QUIZENDE
NCOLORS
BLATT
CREEN_2
IDCMP
THEMA
DATEI
BILDNAME
TASTE
FONT0
C	FONT.NAME
THEMA0
FRAGEN
FRAGE
TASTE1
BLINK.BILD
GRAFIK
FALSCH
RICHTIG
DRIVE
D.NAME
MERK2
TEASTE	MAXFRAGEN
HEIGH
PREFS
HEIGHT	FONT.H
HE	FONT.STIL
FONT.PREFS
FONT.HOEHE
INTUITION.ADRESSE
WINDOW.ADR
FONT.ALT
FONT.NEU
ALT.NAME
FA	FONT.NAME
NEU.NAME
RP	DFONT_LIB
CLEAR
MYBUF
INBUF
VIEWPORT
COMAP2	VIEWPORT2
COTAB2
COMAP3	VIEWPORT3
COTAB3
BKOMP
NCOLORS
CTEMP
INCODE
WARTE
FARBE
NCOLOSR
BREITE
HOEHE	F.FENSTER
F.SCREEN
LOOP1
MEM.OPT
P.PORT
F.BREITE
F.HOEHE
F.RASTPORT
F.VIEWPORT
F.COLORMAP	F.VP.MODI
P.SIGBIT
CALL	P.SIGTASK
STATUS
FEHLER
PEEKL
TEXTATTR
ARRPTR
DPOKE
WARTEN
EXIST
THEMA
INVERZ
TEXTATTR
CTABSAVE
CTABWORK
FARBE
CCRTSEC
CCRTMICS
CCRTDIR	CCRTSTART
CCRTEND
STRFONT
FONTNEU
FONT.NEU
FONT.ALT	FONT.STIL
FONT.PREFS
HEIGH
FONT.HOEHE	FONT.PRES
ALT.ANZ
NEU.ANZ
INCODE
INBYTE
WEITER
TASTATURABFRAGE
EINLESEN
BILDER_LADEN
TESTANZEIGE
SUBTESTANZEIGE
ENDPROC
ENDEPROC
ENDE1
THEMA_SETZEN
1	ZUM_LADEN
ENDE2
LADEN
WEITER.LADEN
ENDE.2
FERTIG
ENDECYCLIC	ENDCYCLIC
QUIZENDE
WEITER2
ANFANG
ENDCYC
LEIDER
WEITERLEIDER
GEFUNDEN
ENDE3
NOCHMAL
DRUCKENENDE
WEITER
DISKFONT
BILDAUSGABE
TESTANZEIGE
ENDEPROC
ENDE1
FONTANZEIGE	DISKFONT9
SETFONT
SOFTFONT
LDFONT
CLFONT
FARBEN_SETZEN
THEMA_SETZEN
BILDER_LADEN
TASTATURABFRAGE
LADEN
BILDANZEIGE
THEMA
EINSTELLUNGEN
ZIEHUNG
QUIZAUSWERTUNG
WHILE
WEITER.LADEN
ANZEIGE.SCHLEIFE
ENDE.2
GRAFIKSTART
GRAFIKLADEN	TEXTLADEN
DRUCKEN
CYCLIC
FCYCLE
BCYCLE
TEXTANZEIGE
TEXT_ANZEIGE_SCHLEIFE
ENDECYCLIC
CLEARS
CLOEARW2
KONTOSTAND
GANZEIGE
TEXT_ANZEIGE_SCHLEIFE_2
ENDIFF
FEHLER
WAIT20
WAIT2
CASH_SPEICHER
CASH_SPEICHER_LADEN
WELCHES_DRIVE
SCREENHARDCOPY
DIRLADEN	DIR_LADEN
VERZEICHNIS
ENDE3
INFOL
SCHEN
ELSEIF
OPENSCREEN
OPENSCREEN_2
OPENSCREEN_3
SCREEN_3
SCREEN_2
OPENDISKFONT
TEXTATTR
OPENFONT
*********** HD-Version **********************
lAmiga - disk-Quiz - Programm
	ram:messe 
$Bitte Anzahl der Quizfragen eingebenF
:                  Kernenergie-Informationen (Messeversion)F
             "
*** 4 =  Voreinstellungen ******
sys:FF
ik/FF
 Dialog-Programm
***************** Programmschleife Anfang ************
***** Quizende Bildausgabe *********
	ram:messe 
bravoF
leiderFF
ILBMF
              !********** Quiz zur
cksetzen **********
 pfad$=df$+"b/"
                     ******** Tastatur-Abfrage aufrufen ********
 *** Grafik ***
 ***  Text  ***
******************** Programmschleife Ende ************
 letzte Frage bei Quiz
90/FF
 ASC(MID$(b$(nr%),LEN(datei$)+4,1))
     F1
   PRINT CHR$(12)
PRINT CHR$(13)
retuurn.FF
 Bild B0 oder 90
 Umschaltung auf Quiz
 Umschaltung auf Dialog
CLEARW #2
 Dialog
 Bild nicht gefunden RETURN
 Bild nicht gefunden RETURN
Retuurn. F
l************************************
lAmiga-Farben + C=64 Farbcodes setzen
l************************************
 Dialog-Themen
90aF 
 F	 Fragen-String zuordnen
90rFd
90sFd
     F8
 IK - Kernenergie - InformationenF
EinleitungF
Grundlagen der KernphysikFF
KernkraftwerkeF
Sicherheit und StrahlenschutzFn
KernbrennstoffkreislaufFc
Lexikon der KernenergieFg
Medienangebot des IKF
Quiz: Atom- und Kernphysik F
Quiz: Reaktortechnik Fy
Quiz: Stromversorgung F
abcefgijklnoprsuvwF
 18 Fragen 90a
acdefhijklnopqstvwxyzF8
 21 Fragen 90r
abcdefghijklmnosF
 16 Fragen 90s
OPENS 1,0,0,340,256,4,0     ! Screen mit 32 Farben
OPENW #1,0,0,339,246,0,4096+2048+8+2,1
******** Richtige Antwort ****************
8Yes, that's right. congratulations. I am happy with you. F
O no. I am sorry. F
********  falsche Antwort ********
 don't worry, bee happy. Fp
 Eingabe durch Anwender
no answer. F 
 Antwort r/f warten auf Taste
let's go on. Fh
 Ziehung
   PRINT nr.1% ! CHR$(12)
PRINT CHR$(13)
****** Kontostand anzeigen *******
kONTOSTANDF
RICHTIG  : 
FALSCH   : 
                              ! Resetet den Font der Console
 auf den Font des Rastports
                              ! -> neuer Font beim PRINT - Befehl!
 OPENW #0
ruby!
 Fonts laden...
emerald!
topaz!
 <- default Font Topaz 8/10
2 XF8
 Font aktivieren
PRINT csi$;"0;31;40m";          ! Hiermit wird die Form und Farbe ge
ndert
PRINT "Das ist Ruby 15 "
PRINT csi$;"4;31;40m";"unterstrichen"
                Grosschrift  (Ruby 15)
 Font aktivieren
PRINT csi$;"0;31;40m";"Emerald 17"
PRINT csi$;"1;33;40m";"Fett"
PRINT csi$;"4;33;40m";"Unterstrichen"
                Kleinschrift (Emerald 17)
wieder normalF
RETURN
diskfont.library
.font
 ROM-Font?
 DISK-Font
 not found !F
can't open diskfont.library !F
PRINT ris$;                             ! F
r Print
Amigafarben
0.00, 0.00, 0.00,  1.00, 1.00, 1.00,  1.00, 0.00, 0.00,  0.00, 0.93, 0.87
0.80, 0.00, 0.93,  0.00, 1.00, 0.00,  0.00, 0.00, 1.00,  1.00, 1.00, 0.13
0.80, 0.60, 0.53,  0.73, 0.73, 0.73,  0.93, 0.20, 0.00,  0.50, 0.50, 0.50
0.27, 0.27, 0.27,  0.73, 1.00, 0.00,  0.47, 0.87, 1.00,  0.90, 0.90, 0.90
Farbcodes C=64
0,144,5,28,159,156,30,31,158,129,149,150,151,152,153,154,155,18,146,19,13
*********************
**  IFF-Lader      **
*********************
 4096+2048+8+2,2
 Amiga-Dialog F
 Biplaneadressen low
 4096+2048+8+2,3
 Amiga-Dialog F
 Biplaneadressen high
ILBMF
* Farbpalette ?
CMAPF
* Grafikdaten ?
BODYF
BMHDF
Breite
	  FH
Tiefe
Komprimiert
CRNGF
*Lesen der Farbpalette
farbwerte
* Lesen der Bilddaten
leider
richtig
   BLOAD "ram:bild",ad%(scr%,0)
Zeilen
Planes
Planebasis
leiderF
ausgabe bei leider
- Zyklischer Farbwechsel wie in DPaint
- Farben retten
- zyklischer Farbwechsel
                 ******************* nur eine Farbe ****************
               **************** alle Farben ***************
               ************* Cyclic Ein + Aus *************
- Farben restaurieren
 Farbwechsel r
rts (backward)
R   F 
Farbwechsel vorw
rts (forward)
R   Ft
Zeilen
Planes
Planebasis
;  FF
 PRINT "Guru-Meldung";HEX$(GURU)
                      ************  cash-Speicher anlegen **********
 BSAVE "ram:bild",ad%(scr%,0),(st1%+1)*(ad%(scr%,1)-ad%(scr%,0))
 cash$(1)="1"
df0:ik/
df0:ik/F
ram:df1 
df1:ik/
df1:ik/F
ram:df2 
df2:ik/
df2:ik/F
sys:ik/
sys:ik/F
ik/FF
	ram:messe 
 3583  ! 3838
 LPRINT CHR$(13)
Kein Signalbit frei!FF
printer.deviceFF
 +CHR$(0)
Drucker ist nicht frei.F
 PRINT "Fehlercode: ";fehler%
Ausdruck Verzeichnis: ";
1 = EinzelblattF
2 = EndlospapierFF
Anzeige Verzeichnis: ";
ram:dirF
ram:dirF
ILBMF
!Neues Blatt einlegen und (RETURN)F
 Taste Del
Bild wird gel
schtFF
sche Info-DateienF
ram:dirF
ram:dirF